#include <iostream>
#include <vector>
#include <string>
#include <algorithm>

int main() {
    std::string predl;
    std::getline(std::cin, predl);

    if (predl.empty() || std::count(predl.begin(), predl.end(), ' ') == 0) {
        std::cout << "Мало данных для анализа" << std::endl;
    } else {
        std::vector<std::string> drope;
        size_t summasl = 0, kirika = 0, lin = 0, threesl = 0, deff = 0, lorden = 0;

        size_t start = 0;
        size_t end = predl.find(' ');
        while (end != std::string::npos) {
            drope.push_back(predl.substr(start, end - start));
            start = end + 1;
            end = predl.find(' ', start);
        }
        drope.push_back(predl.substr(start));

        for (const auto& word : drope) {
            summasl++;
            if (isupper(word[0]) && isalpha(word[0])) {
                kirika++;
            }
            if (std::any_of(word.begin(), word.end(), [](char c) { return isalpha(c) && !iswalpha(c); })) {
                lin++;
            }
            if (word.size() <= 3) {
                threesl++;
            }
            if (word.find('-') != std::string::npos) {
                deff++;
            }
            if (word.size() > lorden) {
                lorden = word.size();
            }
        }

        std::cout << "Кол-во слов: " << summasl << std::endl;
        std::cout << "Кол-во слов с заглавной кириллической буквы: " << kirika << std::endl;
        std::cout << "Кол-во слов содержащих латинский символ: " << lin << std::endl;
        std::cout << "Кол-во слов не превышающих 3 символа: " << threesl << std::endl;
        std::cout << "Кол-во слов в составе которых имеется дефис: " << deff << std::endl;
        std::cout << "Самое длинное слово: ";
        for (const auto& word : drope) {
            if (word.size() == lorden) {
                std::cout << word << std::endl;
                break;
            }
        }
        std::cout << "Длина слова: " << lorden << std::endl;
    }

    return 0;
}
